home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 05 - 1989 / 05.06 Jun 89 / HyperArrays ƒ / HYPER array / getprevdata.p < prev    next >
Encoding:
Text File  |  1989-03-03  |  1.0 KB  |  55 lines  |  [TEXT/MPS ]
  1.  
  2. unit getprevdataXcmd;
  3.  
  4.  
  5. interface
  6.  
  7.     uses MemTypes, QuickDraw, OSIntf, ToolIntf, PackIntf, HyperXCMD, QDAccess;
  8.  
  9.     procedure getprevdata(ParamPtr: XCMDPtr);
  10.  
  11. implementation
  12. type
  13. timeDarray=array[0..59] of integer;
  14.  
  15.     
  16.         
  17. procedure arrayrsc(ParamPtr: XCMDPtr);forward;
  18. procedure getprevdata(paramptr:xcmdptr);
  19.     begin
  20.         arrayrsc(paramptr);
  21.     end;
  22.  
  23.  
  24. procedure arrayrsc(ParamPtr: XCMDPtr);
  25. var
  26.         MYTIMEHAND:HANDLE;
  27.         REFNUM:INTEGER;
  28.         TIMEARRAY:TIMEDARRAY;
  29.         temphandle:handle;
  30.         
  31.         tempstr:str255;
  32.         a :integer;
  33.         vert,b:integer;
  34.     horiz:longint;
  35. procedure getpoints(Paramptr:xcmdPtr;var num:longint);
  36. var tempstr1:str255;
  37. begin
  38.     zerotopas(paramptr,paramptr^.params[1]^,tempstr1);
  39.     horiz:=strtonum(paramptr,tempstr1);
  40.     
  41. end;
  42.     begin
  43.     MYTIMEHAND:=(GETRESOURCE('ANES',1010));
  44.     HLOCK(MYTIMEHAND);
  45.     BLOCKMOVE(MYTIMEHAND^,@TIMEARRAY,SIZEOF(TIMEARRAY));
  46.      getpoints(paramptr,horiz);
  47.     a:=timearray[horiz];
  48.      longtostr(paramptr,a,tempstr);
  49.     paramptr^.returnvalue:= pastozero(paramptr,tempstr);
  50.     releaseresource(mytimehand);
  51.     {disposhandle(mytimehand);}
  52.     END;
  53.     
  54.     
  55. end.